<html>
<body>
<?php 
Ming_useSWFVersion(4);
$myFont=new SWFFont("FreeSerif.fdb"); 
$myText1=new SWFText(); 
$myText1->setFont($myFont); 
$myText1->setColor(0,0,255); 
$myText1->setHeight(20); 
$myText1->moveTo(-$myText1->getWidth("Action Script!")/2, -$myFont->getAscent()/2); 
$myText1->addString("Action Script!"); 
$mySprite=new SWFSprite(); 
$firstText=$mySprite->add($myText1); 
for($i=0; $i<24; $i++){ 
$firstText->rotate(15); 
$mySprite->nextFrame(); 
} 
for($i=0; $i<24; $i++){ 
$mySprite->nextFrame(); 
} 
$myMovie=new SWFMovie(); 
$myMovie->setDimension(400,200); 
$myMovie->setBackground(255,255,0); 
$firstSprite=$myMovie->add($mySprite); 
$firstSprite->moveTo(-$myText1->getWidth("Action Script!"), 200/2+$myFont->getAscent()/2); 
$firstSprite->setName("myWords"); 
$myMovie->add(new SWFAction("if(/myWords.x>400){/myWords.x=0;}else{/myWords.x+=4;}")); 
$myMovie->nextFrame(); 
$myMovie->add(new SWFAction("gotoFrame(0); play();")); 
$myMovie->nextFrame(); 
$myMovie->save("temp/lesson15.swf"); 
?> 
<OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://active.macromedia.com/flash2/cabs/swflash.cab#version=4,0,0,0" ID=objects WIDTH=400 HEIGHT=200>
<PARAM NAME=movie VALUE="temp/lesson15.swf">
<EMBED src="temp/lesson15.swf" WIDTH=400 HEIGHT=200 TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"> 
</OBJECT>
</body>
</html>